home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / BED / Rexx / CommentBlk.bed < prev    next >
Text File  |  1996-09-26  |  971b  |  58 lines
  1. /*
  2. ** $VER: CommentBlk.bed 1.0 (02.01.96)
  3. **
  4. ** Comment out the selected block using ARexx comments
  5. ** (easily changed to C, Modula-2, Ada, or ASM comments)
  6. */
  7.  
  8. OPTIONS RESULTS
  9.  
  10. /* For ARexx commenting */
  11. CommentStart = "/** "
  12. CommentMid     = "**** "
  13. CommentEnd     = "**/ "
  14.  
  15. /*
  16. /* For C commenting */
  17. CommentStart = "// "
  18. CommentMid     = "// "
  19. CommentEnd     = "// "
  20.  
  21. /* For Modula-2 or Pascal commenting */
  22. CommentStart = "(**** "
  23. CommentMid     = " **** "
  24. CommentEnd     = " ****)"
  25.  
  26. /* For Ada commenting */
  27. CommentStart = "-- "
  28. CommentMid     = "-- "
  29. CommentEnd     = "-- "
  30.  
  31. /* For ASM commenting */
  32. CommentStart = "** "
  33. CommentMid     = "** "
  34. CommentEnd     = "** "
  35. */
  36.  
  37. GetBlkDims
  38. PARSE VAR RESULT mode . start . end
  39.  
  40. IF mode = OFF THEN DO
  41.     SetStatusBar "Error: No block marked!"
  42. END; ELSE DO
  43.     MarkBlk
  44.  
  45.     Move start 1
  46.     Text '"' || CommentStart || '\n"'
  47.  
  48.     RecordMacro QUIET
  49.     MoveSOL
  50.     Text '"' || CommentMid || '"'
  51.     MoveDown
  52.     EndMacro
  53.  
  54.     PlayMacro end - start
  55.  
  56.     Text '"' || CommentEnd || '\n"'
  57. END
  58.